home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / skk / skk-menu.el.z / skk-menu.el
Encoding:
Text File  |  1998-05-21  |  16.7 KB  |  492 lines
  1. ;;; skk-menu.el --- SKK Menul related functions.
  2. ;; Copyright (C) 1996, 1997 Mikio Nakajima <minakaji@osaka.email.ne.jp>
  3.  
  4. ;; Author: Mikio Nakajima <minakaji@osaka.email.ne.jp>
  5. ;; Version: $Id: skk-menu.el,v 1.2 1997/08/24 15:25:54 mrt Exp $
  6. ;; Keywords: japanese
  7. ;; Last Modified: $Date: 1997/08/24 15:25:54 $
  8.  
  9. ;; This program is free software; you can redistribute it and/or modify
  10. ;; it under the terms of the GNU General Public License as published by
  11. ;; the Free Software Foundation; either versions 2, or (at your option)
  12. ;; any later version.
  13.  
  14. ;; This program is distributed in the hope that it will be useful
  15. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17. ;; GNU General Public License for more details.
  18.  
  19. ;; You should have received a copy of the GNU General Public License
  20. ;; along with SKK, see the file COPYING.  If not, write to the Free
  21. ;; Software Foundation Inc., 59 Temple Place - Suite 330, Boston,
  22. ;; MA 02111-1307, USA.
  23.  
  24. ;;; Commentary:
  25.  
  26. ;; Following people contributed modifications to skk.el (Alphabetical order):
  27.  
  28. ;;; Change log:
  29. ;;; derived from skk.el 9.6.
  30.  
  31. ;;; Code:
  32. (require 'skk-foreword)
  33. (require 'skk-vars)
  34.  
  35. (defvar skk-menu-annotation-buffer "*SKK Menu Annotation*"
  36.   "SKK $B%a%K%e!<$N$?$a$NCp<a$rI=<($9$k%P%C%U%!!#(B" )
  37.  
  38. (defun skk-menu-setup-annotation-buffer (annotation)
  39.   ;; skk-menu-annotation-buffer $B$r:n$j!"(BANNOTATION $B$rI=<($9$k!#(B
  40.   (if (and annotation (not (string= annotation "")))
  41.       (save-current-buffer
  42.         (delete-other-windows)
  43.         (switch-to-buffer (get-buffer-create skk-menu-annotation-buffer))
  44.         (delete-region (point-min) (point-max))
  45.         (insert annotation)
  46.         (goto-char (point-min)) )))
  47.  
  48. (defun skk-menu-change-user-option (var on-alist off-alist)
  49.   ;; VAR $B$N%I%-%e%a%s%H$rI=<($7$F%f!<%6!<$N;X<($K=>$$$=$NCM$K(B non-nil/nil $B$rBe(B
  50.   ;; $BF~$9$k!#(B
  51.   ;; ON-ALIST $B$K$O!"%*%W%7%g%s(B VAR $B$NCM$r(B non-nil $B$K$9$k$H$-$K@_Dj$9$kJQ?t$r!"(B
  52.   ;; OFF-ALIST $B$O(B VAR $B$NCM$r(B nil $B$K$9$k>l9g$N@_Dj$r(B
  53.   ;;   '(($BJQ?tL>(B0 . $BCM(B0) ($BJQ?tL>(B1 . $BCM(B1) ... ($BJQ?tL>(Bn . $BCM(Bn))
  54.   ;; $B$N7A$GO"A[%j%9%H$G;XDj$9$k!#(BON-ALIST, OFF-ALIST $B$K$O(B VAR $B<+?H$N@_Dj$b;XDj(B
  55.   ;; $B$9$kI,MW$,$"$k!#(B
  56.   (let (
  57.         ;; $B%@%$%"%m%0%\%C%/%9$,%U%l!<%`$NCf1{$K=P$F(B annotation $B%P%C%U%!$,FI$a(B
  58.         ;; $B$J$$$N$G!"%@%$%"%m%0%\%C%/%9$r=P$5$J$$$h$&$K$9$k!#(B
  59.         (last-nonmenu-event t)
  60.         (on (symbol-value var))
  61.         answer )
  62.     (save-window-excursion
  63.       (skk-menu-setup-annotation-buffer
  64.        (concat (format "$B8=:_$N(B %S $B$NCM$O!"(B%S $B$G$9!#(B\n\n" var on)
  65.                (documentation-property var 'variable-documentation) ))
  66.       ;; y-or-n-p $B$G$bNI$$$N$@$,!"(By-or-n-p $B$O%_%K%P%C%U%!$rMxMQ$7$F$$$F%_%K%P%C(B
  67.       ;; $B%U%!$r;H$C$F$J$$$N$G!"(Bannotation buffer $B$K%+!<%=%k$r0\$7!"J8;zNs$r%3(B
  68.       ;; $B%T!<$7$?$j$G$-$J$/$J$C$F$7$^$&!#(B
  69.       (setq answer (yes-or-no-p (format
  70.                                  (if skk-japanese-message-and-error
  71.                                      "$B$3$N%*%W%7%g%s$r(B %S $B$K$7$^$9$+!)(B"
  72.                                    "Turn %S this option?" )
  73.                                  (if on "off" "on") )))
  74.       (if answer
  75.           (if on
  76.               ;; turn off
  77.               (skk-menu-change-user-option-1 off-alist)
  78.             ;; turn on
  79.             (skk-menu-change-user-option-1 on-alist) )))))
  80.  
  81. (defun skk-menu-change-user-option-1 (alist)
  82.   ;; ALIST $B$r(B skk-menu-modified-user-option $B$N:G8eJ}$KO"7k$7!"(BALIST $B$NCM$NMWAG(B
  83.   ;; $B$N(B car $B$K(B cdr $B$NCM$rBeF~$9$k!#(B
  84.   (let ((n 0)
  85.         cell modified )
  86.     (while (setq cell (nth n alist))
  87.       (setq n (1+ n)
  88.             modified (assq (car cell) skk-menu-modified-user-option) )
  89.       (if modified
  90.           (setq skk-menu-modified-user-option
  91.                 ;; $B4{$KF1$8JQ?t$r%b%G%#%U%!%$$7$F$$$?$i!"8E$$$b$N$r:o=|$9$k!#(B
  92.                 (delq modified skk-menu-modified-user-option) ))
  93.       (set (car cell) (cdr cell)) )
  94.     (setq skk-menu-modified-user-option
  95.           (nconc skk-menu-modified-user-option alist) )))
  96.  
  97. ;;;###skk-autoload
  98. (defun skk-menu-save-modified-user-option ()
  99.   ;; SKK $B$N%a%K%e!<$GJQ99$5$l$?%f!<%6!<%*%W%7%g%s$r(B skk-init-file $B$NKvHx$KJ]B8(B
  100.   ;; $B$9$k!#(B
  101.   (if (and
  102.        skk-menu-modified-user-option
  103.        (skk-yes-or-no-p
  104.         "SKK $B%*%W%7%g%s$,5/F08eJQ99$5$l$F$$$^$9!#$3$NCM$rJ]B8$7$^$9$+!)(B"
  105.         "Changed user options after SKK invoked.  Save the variables?" ))
  106.       (progn
  107.         (skk-menu-save-modified-user-option-1)
  108.         (skk-message
  109.          "SKK $B$N%*%W%7%g%s@_Dj$r(B %s $B$KJ]B8$7$^$7$?(B"
  110.          "Save user options of SKK in %s"
  111.          skk-init-file )
  112.         (sit-for 1) )))
  113.  
  114. (defun skk-menu-save-modified-user-option-1 ()
  115.   ;; skk-menu-save-modified-user-option-1 $B$N%5%V%k!<%A%s!#(B~/.skk $B$K(B
  116.   ;; skk-menu-modified-user-option $B$NCM$r=q$-9~$_<!$K(B skk.el $B$,5/F0$5$l$?$H$-(B
  117.   ;; $B$G$bJQ99$5$l$?CM$rM-8z$K$9$k!#(B
  118.   ;; $B2a5n$K4{$K$3$N4X?t$K$h$j<0$,=q$-9~$^$l$F$$$?$i!"4{DjCM$H$ND4@0$b9T$J$&!#(B
  119.   (save-match-data
  120.     (with-current-buffer (find-file-noselect (expand-file-name skk-init-file))
  121.       (let (
  122.             ;; $B%G%3%l!<%7%g%s$J$7!#(B
  123.             (hilit-auto-highlight-maxout 0)
  124.             (font-lock-maximum-size 0)
  125.             (require-final-newline t)
  126.             buffer-read-only
  127.             start first-kiss cell )
  128.         (goto-char (point-min))
  129.         (setq first-kiss
  130.               (not
  131.                (re-search-forward
  132.                 "^;; $B2<5-$N<0$O(B SKK $B$K$h$C$F<+F0E*$K=q$-9~$^$l$?$b$N$G$9!#(B$"
  133.                 nil t )))
  134.         (if first-kiss
  135.             (progn
  136.               (setq start (goto-char (point-max)))
  137.               (insert
  138.                ";; $B2<5-$N<0$O(B SKK $B$K$h$C$F<+F0E*$K=q$-9~$^$l$?$b$N$G$9!#(B\n"
  139.                ))
  140.           (let ((alist skk-menu-modified-user-option)
  141.                 var)
  142.             (setq start (point))
  143.             (re-search-forward
  144.              "^;; $B>e5-$N<0$O(B SKK $B$K$h$C$F<+F0E*$K=q$-9~$^$l$?$b$N$G$9!#(B$"
  145.              nil )
  146.             (while (setq var (car (car alist)))
  147.               (skk-save-point
  148.                 (and (re-search-backward (prin1-to-string var) start t)
  149.                      (delete-region (progn (beginning-of-line) (point))
  150.                                     (progn (forward-line 1) (point)) )))
  151.               (setq alist (cdr alist)) )
  152.             (beginning-of-line) ))
  153.         ;; $B$5$F!"$3$3$+$i$O6&DL$N=hM}$G$9!#(B
  154.         (while skk-menu-modified-user-option
  155.           (setq cell (car skk-menu-modified-user-option)
  156.                 skk-menu-modified-user-option
  157.                 (cdr skk-menu-modified-user-option) )
  158.           (insert "(setq " (prin1-to-string (car cell)) " "
  159.                   (prin1-to-string (cdr cell)) ")\n" ))
  160.         ;;(delete-char -1)
  161.         (if first-kiss
  162.             (insert
  163.              ";; $B>e5-$N<0$O(B SKK $B$K$h$C$F<+F0E*$K=q$-9~$^$l$?$b$N$G$9!#(B\n"
  164.              ))
  165.         (save-buffer)
  166.         (kill-buffer (current-buffer)) ))))
  167.  
  168. ;;;###skk-autoload
  169. (defun skk-menu-process-okuri-early ()
  170.   "skk-process-okuri-early $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
  171. $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
  172.   (interactive)
  173.   (skk-menu-change-user-option
  174.    'skk-process-okuri-early
  175.    ;; on-alist
  176.    '((skk-process-okuri-early . t)
  177.      (skk-auto-okuri-process . nil)
  178.      (skk-henkan-okuri-strictly . nil)
  179.      (skk-henkan-strict-okuri-precedence . nil)
  180.      (skk-kakutei-early . nil) )
  181.    ;; off-alist
  182.    '((skk-process-okuri-early . nil)) )
  183.   (skk-set-cursor-properly) )
  184.  
  185. ;;;###skk-autoload
  186. (defun skk-menu-henkan-okuri-strictly ()
  187.   "skk-henkan-okuri-strictly $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
  188. $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
  189.   (interactive)
  190.   (skk-menu-change-user-option
  191.    'skk-henkan-okuri-strictly
  192.    ;; on-alist
  193.    '((skk-henkan-okuri-strictly . t)
  194.      (skk-process-okuri-early . nil) )
  195.    ;; off-alist
  196.    '((skk-henkan-okuri-strictly . nil)) )
  197.   (skk-set-cursor-properly) )
  198.  
  199. ;;;###skk-autoload
  200. (defun skk-menu-henkan-strict-okuri-precedence ()
  201.   "skk-henkan-strict-okuri-precedence $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
  202. $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
  203.   (interactive)
  204.   (skk-menu-change-user-option
  205.    'skk-henkan-strict-okuri-precedence
  206.    ;; on-alist
  207.    '((skk-henkan-strict-okuri-precedence . t)
  208.      (skk-henkan-okuri-strictly . nil)
  209.      (skk-process-okuri-early . nil) )
  210.    ;; off-alist
  211.    '((skk-henkan-strict-okuri-precedence . nil)) )
  212.   (skk-set-cursor-properly) )
  213.  
  214. ;;;###skk-autoload
  215. (defun skk-menu-auto-okuri-process ()
  216.   "skk-auto-okuri-process $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
  217. $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
  218.   (interactive)
  219.   (skk-menu-change-user-option
  220.    'skk-auto-okuri-process
  221.    ;; on-alist
  222.    '((skk-auto-okuri-process . t)
  223.      (skk-process-okuri-early . nil) )
  224.    ;; off-alist
  225.    '((skk-auto-okuri-process . nil)) )
  226.   (skk-set-cursor-properly) )
  227.  
  228. ;;;###skk-autoload
  229. (defun skk-menu-kakutei-early ()
  230.   "skk-kakutei-early $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B
  231. $BN>N)$G$-$J$$%*%W%7%g%s$NCM$rD4@0$9$k!#(B"
  232.   (interactive)
  233.   (skk-menu-change-user-option
  234.    'skk-kakutei-early
  235.    ;; on-alist
  236.    '((skk-kakutei-early . t)
  237.      (skk-process-okuri-early . nil) )
  238.    ;; off-alist
  239.    '((skk-kakutei-early . nil)) )
  240.   (skk-set-cursor-properly) )
  241.  
  242. ;;;###skk-autoload
  243. (defun skk-menu-egg-like-newline ()
  244.   "skk-egg-like-newline $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  245.   (interactive)
  246.   (skk-menu-change-user-option
  247.    'skk-egg-like-newline
  248.    '((skk-egg-like-newline . t))
  249.    '((skk-egg-like-newline . nil)) )
  250.   (skk-set-cursor-properly) )
  251.  
  252. ;;;###skk-autoload
  253. (defun skk-menu-delete-implies-kakutei ()
  254.   "skk-delete-implies-kakutei $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  255.   (interactive)
  256.   (skk-menu-change-user-option
  257.    'skk-delete-implies-kakutei
  258.    '((skk-delete-implies-kakutei . t))
  259.    '((skk-delete-implies-kakutei . nil)) )
  260.   (skk-set-cursor-properly) )
  261.  
  262. ;;;###skk-autoload
  263. (defun skk-menu-allow-spaces-newlines-and-tabs ()
  264.   "skk-allow-spaces-newlines-and-tabs $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  265.   (interactive)
  266.   (skk-menu-change-user-option
  267.    'skk-allow-spaces-newlines-and-tabs
  268.    '((skk-allow-spaces-newlines-and-tabs . t))
  269.    '((skk-allow-spaces-newlines-and-tabs . nil)) )
  270.   (skk-set-cursor-properly) )
  271.  
  272. ;;;###skk-autoload
  273. (defun skk-menu-convert-okurigana-into-katakana ()
  274.   "skk-convert-okurigana-into-katakana $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  275.   (interactive)
  276.   (skk-menu-change-user-option
  277.    'skk-convert-okurigana-into-katakana
  278.    '((skk-convert-okurigana-into-katakana . t))
  279.    '((skk-convert-okurigana-into-katakana . nil)) )
  280.   (skk-set-cursor-properly) )
  281.  
  282. ;;;###skk-autoload
  283. (defun skk-menu-delete-okuri-when-quit ()
  284.   "skk-delete-okuri-when-quit $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  285.   (interactive)
  286.   (skk-menu-change-user-option
  287.    'skk-delete-okuri-when-quit
  288.    '((skk-delete-okuri-when-quit . t))
  289.    '((skk-delete-okuri-when-quit . nil)) )
  290.   (skk-set-cursor-properly) )
  291.  
  292. ;;;###skk-autoload
  293. (defun skk-menu-echo ()
  294.   "skk-echo $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  295.   (interactive)
  296.   (skk-menu-change-user-option
  297.    'skk-echo
  298.    '((skk-echo . t))
  299.    '((skk-echo . nil)) )
  300.   (skk-set-cursor-properly) )
  301.  
  302. ;;;###skk-autoload
  303. (defun skk-menu-use-numeric-conversion ()
  304.   "skk-use-numeric-conversion $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  305.   (interactive)
  306.   (skk-menu-change-user-option
  307.    'skk-use-numeric-conversion
  308.    '((skk-use-numeric-conversion . t))
  309.    '((skk-use-numeric-conversion . nil)) )
  310.   (skk-set-cursor-properly) )
  311.  
  312. ;;;###skk-autoload
  313. (defun skk-menu-use-overlay ()
  314.   "skk-use-face $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  315.   (interactive)
  316.   (skk-menu-change-user-option
  317.    'skk-use-face
  318.    '((skk-use-face . t))
  319.    '((skk-use-face . nil)) )
  320.   (skk-set-cursor-properly) )
  321.  
  322. ;;;###skk-autoload
  323. (defun skk-menu-auto-insert-paren ()
  324.   "skk-auto-insert-paren $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  325.   (interactive)
  326.   (skk-menu-change-user-option
  327.    'skk-auto-insert-paren
  328.    '((skk-auto-insert-paren . t))
  329.    '((skk-auto-insert-paren . nil)) )
  330.   (skk-set-cursor-properly) )
  331.  
  332. ;;;###skk-autoload
  333. (defun skk-menu-japanese-message-and-error ()
  334.   "skk-japanese-message-and-error $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  335.   (interactive)
  336.   (skk-menu-change-user-option
  337.    'skk-japanese-message-and-error
  338.    '((skk-japanese-message-and-error . t))
  339.    '((skk-japanese-message-and-error . nil)) )
  340.   (skk-set-cursor-properly) )
  341.  
  342. ;;;###skk-autoload
  343. ;;(defun skk-menu-byte-compile-init-file ()
  344. ;;  "skk-byte-compile-init-file $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  345. ;;  (interactive)
  346. ;;  (skk-menu-change-user-option
  347. ;;   'skk-byte-compile-init-file
  348. ;;   '((skk-byte-compile-init-file . t))
  349. ;;   '((skk-byte-compile-init-file . nil)) )
  350. ;;  (skk-set-cursor-properly) )
  351.  
  352. ;;;###skk-autoload
  353. (defun skk-menu-count-private-jisyo-entries-exactly ()
  354.   "skk-count-private-jisyo-candidates-exactly $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  355.   (interactive)
  356.   (skk-menu-change-user-option
  357.    'skk-count-private-jisyo-candidates-exactly
  358.    '((skk-count-private-jisyo-candidates-exactly . t))
  359.    '((skk-count-private-jisyo-candidates-exactly . nil)) )
  360.   (skk-set-cursor-properly) )
  361.  
  362. ;;;###skk-autoload
  363. (defun skk-menu-auto-henkan ()
  364.   "skk-auto-start-henkan $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  365.   (interactive)
  366.   (skk-menu-change-user-option
  367.    'skk-auto-start-henkan
  368.    '((skk-auto-start-henkan . t)
  369.      (skk-auto-okuri-process . t) )
  370.    '((skk-auto-start-henkan . nil)) )
  371.   (skk-set-cursor-properly) )
  372.  
  373. ;; for skk-comp.el
  374. ;;;###skk-autoload
  375. (defun skk-menu-dabbrev-like-completion ()
  376.   "skk-dabbrev-like-completion $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  377.   (interactive)
  378.   (require 'skk-comp)
  379.   (skk-menu-change-user-option
  380.    'skk-dabbrev-like-completion
  381.    '((skk-dabbrev-like-completion . t))
  382.    '((skk-dabbrev-like-completion . nil)) )
  383.   (skk-set-cursor-properly) )
  384.  
  385. ;; for skk-gadget.el
  386. ;;;###skk-autoload
  387. (defun skk-menu-date-ad ()
  388.   "skk-date-ad $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  389.   (interactive)
  390.   (require 'skk-gadget)
  391.   (skk-menu-change-user-option
  392.    'skk-date-ad
  393.    '((skk-date-ad . t))
  394.    '((skk-date-ad . nil)) )
  395.   (skk-set-cursor-properly) )
  396.  
  397. ;; for skk-kakasi.el
  398. ;;;###skk-autoload
  399. (defun skk-menu-romaji-*-by-hepburn ()
  400.   "skk-romaji-*-by-hepburn $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  401.   (interactive)
  402.   (require 'skk-kakasi)
  403.   (skk-menu-change-user-option
  404.    'skk-romaji-*-by-hepburn
  405.    '((skk-romaji-*-by-hepburn . t))
  406.    '((skk-romaji-*-by-hepburn . nil)) )
  407.   (skk-set-cursor-properly) )
  408.  
  409. ;;;###skk-autoload
  410. (defun skk-menu-use-kakasi ()
  411.   "skk-use-kakasi $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  412.   (interactive)
  413.   (require 'skk-kakasi)
  414.   (skk-menu-change-user-option
  415.    'skk-use-kakasi
  416.    '((skk-use-kakasi . t))
  417.    '((skk-use-kakasi . nil)) )
  418.   (skk-set-cursor-properly) )
  419.  
  420. ;; for skk-num.el
  421. ;;;###skk-autoload
  422. (defun skk-menu-numeric-conversion-float-num ()
  423.   "skk-numeric-conversion-float-num $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  424.   (interactive)
  425.   (require 'skk-num)
  426.   (skk-menu-change-user-option
  427.    'skk-numeric-conversion-float-num
  428.    '((skk-numeric-conversion-float-num . t))
  429.    '((skk-numeric-conversion-float-num . nil)) )
  430.   (skk-set-cursor-properly) )
  431.  
  432. ;; for skk-server.el
  433. ;;;###skk-autoload
  434. (defun skk-menu-report-server-response ()
  435.   "skk-report-server-response $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  436.   (interactive)
  437.   (require 'skk-server)
  438.   (skk-menu-change-user-option
  439.    'skk-report-server-response
  440.    '((skk-report-server-response . t))
  441.    '((skk-report-server-response . nil)) )
  442.   (skk-set-cursor-properly) )
  443.  
  444. ;;;###skk-autoload
  445. (defun skk-menu-server-debug ()
  446.   "skk-server-debug $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  447.   (interactive)
  448.   (require 'skk-server)
  449.   (skk-menu-change-user-option
  450.    'skk-server-debug
  451.    '((skk-server-debug . t))
  452.    '((skk-server-debug . nil)) )
  453.   (skk-set-cursor-properly) )
  454.  
  455. ;;;###skk-autoload
  456. (defun skk-menu-compare-jisyo-size-when-saving ()
  457.   "skk-compare-jisyo-size-when-saving $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  458.   (interactive)
  459.   (skk-menu-change-user-option
  460.    'skk-compare-jisyo-size-when-saving
  461.    '((skk-compare-jisyo-size-when-saving . t))
  462.    '((skk-compare-jisyo-size-when-saving . nil)) )
  463.   (skk-set-cursor-properly) )
  464.  
  465. ;;;###skk-autoload
  466. (defun skk-menu-use-color-cursor ()
  467.   "skk-use-color-cursor $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  468.   (interactive)
  469.   (skk-menu-change-user-option
  470.    'skk-use-color-cursor
  471.    '((skk-use-color-cursor . t))
  472.    '((skk-use-color-cursor . nil)) )
  473.   (skk-set-cursor-properly) )
  474.  
  475. (defun skk-menu-uniq-numerals ()
  476.   "skk-uniq-numerals $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  477.   (interactive)
  478.   (skk-menu-change-user-option
  479.    'skk-uniq-numerals
  480.    '((skk-uniq-numerals . t))
  481.    '((skk-uniq-numerals . nil)) ))
  482.  
  483. ;;(defun skk-menu- ()
  484. ;;  "skk- $B$r%9%$%C%A%*%s(B/$B%*%U$9$k!#(B"
  485. ;;  (interactive)
  486. ;;  (skk-menu-change-user-option
  487. ;;   'skk-
  488. ;;   '((skk- . t))
  489. ;;   '((skk- . nil)) ))
  490.  
  491. ;;; skk-menu.el ends here
  492.